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I INTFRP0LATF..d3p 

Real time Direct Form Filter, N taps, uses an efficient algorthm 

to interpolate by L- for an increase of L tinnes the input sample rate. A 

restriction on the number of taps that N/L be integer. 

INPUT: ode 
OUTPUT: doc 

i 

MODULE/RAM/ABS=0 interpolate; 



.CONST N=300; 

•CONST L=4: j interpolate by factor of L | 

.CONST NoverL=75; 

.VAR/PM/RAM/CIRC coef[N]; 

.VAR/PM/RAM/CIRC data[NoverL]; ' 

.VAR/PM/RAM/ counter; 

.PORT adc; 

.PORT adc; 

.!NIT coef:<coef.dat>; 



RTl; 
RTI; 
RTl; 

JUMP sample; 

initialize: IMASK=b#0000; 

ICNTL=b#01111; 
Sl=1; 

OM(counterO=SI; 

l4="coef; 

L4=%'coef; 

(listing contiunes on nest page) 



{interrupt 0 j 
{interrupt -1 \ 
{interrupt 2 j 

{interrupt 3 at (L*input rate) } 

{disable all interrupts} 
{edge sensitive interruptsj 
{set interpolate counter to 1j 
{for first data sample} 
{setup a circular buffer in PM} 
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M4=L; jmodifier for coef is i] 

W5--1; jmodifier to shift coef back -1| 

IO='^dato; [setup circular buffer in DMj 
LO-^dato; 
M0=1 

IMASK=B#1000; {enable interrupt 3] 
wQitJnterrupt: JUMP woitjnterrupt.-jinfinte wait loop] 

1_ __lnterpolate | 

sample: M0DIFT(I4,M5); jshifts coef pointer back by -li 

AYO=DM(counter); 

AR=AY0-1; [decrement and update counter) 

DM(counter)=AR; 

IF NE JUMP dojir; {test ant input if L timesj 
input data sample, code executed at the sample rate j 



dojnput: AYO=DM(adc); jinput data sampiej 

DM(IIO.MO)=AYO; {update delay line wiht newest] 

M0DIFY(I4.M4); {shifts coef pointer up by I] 

0M(counter)=M4; {reset counter to Lj 

f filter pass, occurs at L times the input sample rate \ 

do_fir: CNTR=NOVERL -1; {N/L since round on last tapj 

MR=0. MX0=DM(I0.M0); MY0=PM(I4.M4); 

DO taploop UNTIL CE; {N/L-1 taps of FIRj 
taploop: MR=MR+MXO*MXO(SS), MXO=DM{IO,MO). MY0=PM(I4.M4); 

IF MV SAT MR; {saturate result if overflowed] 

DM(dac)=MR1; {output sample] 

RTI; 

ENDMOD: 
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